home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 November / 1988-11.d64 / rally racer (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  97 lines
  1. 10 rem copyright 1988 compute! publications, inc. - all rights reserved
  2. 20 print"[147]   copyright 1988 compute! pub., inc."
  3. 30 printtab(11)"all rights reserved"
  4. 40 ifl=0thenl=1:load"rallycode",8,1
  5. 50 sp=53248:pokesp+21,255:forx=0to7:pokesp+x*2,x*28+40:pokesp+1+x*2,90
  6. 60 poke2040+x,x+248:next:poke53281,0:poke53280,0
  7. 70 print"[147][158]building sprites.."
  8. 80 forx=0to64:readz:a=a+z:poke828+x,z:next
  9. 90 ifa-7027thenprint"error in ml data":end
  10. 100 s1=15872:s2=s1+64:s3=s2+64:s4=s3+64:s5=s4+64:s6=s5+64:s7=s6+64:s8=s7+64
  11. 110 fory=0to191:readz:b=b+z:pokes1+y,z:next
  12. 120 ifb-20723thenprint"error in sprite data":end
  13. 130 a=s4:b=s2:gosub190:a=s5:b=s1:gosub190
  14. 140 a=s6:b=s4:gosub200:a=s7:b=s3:gosub200
  15. 150 a=s8:b=s2:gosub200:poke792,0:poke793,192:pokesp+21,0
  16. 160 print"building track..":forx=0to413:readz:c=c+z:pokex+14848,z:next
  17. 170 ifc-58451thenprint"error in track data":end
  18. 180 poke631,13:poke198,1:sys50689
  19. 190 fory=0to21:forx=0to2:pokea+63-y*3+x,peek(b+y*3+x):next:next:return
  20. 200 fory=0to21:forx=0to2:pokea+y*3+2-x,peek(b+y*3+x):next:next
  21. 210 poke254,a/256:poke253,a-peek(254)*256:sys828:return
  22. 220 rem      ml data
  23. 230 data165,253,133,251,165,254,133,252,160,0,169,0,141,125
  24. 240 data3,162,0,177,251,61,109,3,240,9,189,117,3,13,125,3
  25. 250 data141,125,3,232,224,8,208,235,173,125,3,145,251,200
  26. 260 data192,64,208,218,96,1,2,4,8,16,32,64,128,128,64,32,16,8,4,2,1
  27. 270 rem      sprite data
  28. 280 data0,0,0,0,126,0,3,255,192,15,255,240
  29. 290 data15,255,240,15,255,240,15,0,240,6,0,96
  30. 300 data7,255,224,7,255,224,7,255,224,7,255,224
  31. 310 data15,255,240,30,0,120,31,0,248,31,255,248
  32. 320 data31,255,248,31,255,248,1,255,128,0,0,0
  33. 330 data0,0,0,0,0,0,0,0,62,0,0,127
  34. 340 data128,0,127,224,0,255,240,1,227,248,31,241
  35. 350 data248,63,248,248,127,252,124,126,254,124,60,127
  36. 360 data126,62,63,252,31,31,232,31,143,224,15,199
  37. 370 data192,7,227,128,3,255,128,0,255,128,0,127
  38. 380 data0,0,30,0,0,0,0,0,0,0,0,0
  39. 390 data0,0,0,0,0,63,0,0,63,129,248,63
  40. 400 data255,248,127,255,252,124,254,124,120,254,62,120
  41. 410 data254,62,120,254,62,120,254,62,120,254,62,124
  42. 420 data254,124,127,255,252,63,255,248,63,129,248,63
  43. 430 data0,0,0,0,0,0,0,0,0,0,0,0
  44. 440 rem      track data
  45. 450 data255,255,224,192,192,194,199,199
  46. 460 data255,255,63,3,0,0,240,255
  47. 470 data255,255,254,252,60,28,8,0
  48. 480 data255,255,0,0,63,127,127,127
  49. 490 data255,255,0,0,255,254,252,252
  50. 500 data255,255,0,0,255,3,1,113
  51. 510 data255,255,7,0,255,255,240,224
  52. 520 data255,255,240,0,240,255,0,0
  53. 530 data255,255,0,0,60,252,0,0
  54. 540 data255,255,127,63,63,63,63,63
  55. 550 data199,199,199,199,199,199,199,199
  56. 560 data255,255,255,241,192,128,0,7
  57. 570 data128,192,255,127,63,31,15,15
  58. 580 data126,252,252,252,252,252,128,0
  59. 590 data0,0,28,62,62,62,126,254
  60. 600 data33,1,3,63,63,63,31,0
  61. 610 data192,193,192,224,240,252,254,62
  62. 620 data0,255,255,31,15,15,15,15
  63. 630 data0,255,255,255,255,192,128,131
  64. 640 data127,255,255,255,255,31,15,7
  65. 650 data199,199,199,199,194,192,224,255
  66. 660 data15,15,15,15,15,31,63,255
  67. 670 data143,143,143,143,143,143,143,143
  68. 680 data15,31,31,15,0,0,128,255
  69. 690 data255,255,255,255,0,0,0,255
  70. 700 data0,248,254,254,63,31,15,15
  71. 710 data30,14,14,15,15,15,15,15
  72. 720 data6,0,0,0,255,255,255,255
  73. 730 data7,15,31,127,255,240,224,192
  74. 740 data135,135,135,135,7,7,15,31
  75. 750 data255,255,254,248,240,240,241,241
  76. 760 data255,255,0,0,0,255,240,224
  77. 770 data143,15,15,15,31,255,7,3
  78. 780 data255,255,240,224,192,192,195,195
  79. 790 data255,255,63,15,7,7,7,3
  80. 800 data143,143,143,143,143,143,143,135
  81. 810 data7,3,0,128,255,255,255,255
  82. 820 data255,128,0,0,224,240,240,240
  83. 830 data195,195,65,64,96,112,127,127
  84. 840 data255,255,255,15,7,3,3,131
  85. 850 data240,240,248,255,255,255,255,255
  86. 860 data128,3,7,255,255,255,255,255
  87. 870 data3,129,192,192,224,255,255,255
  88. 880 data195,131,3,3,7,255,255,255
  89. 890 data3,1,0,0,0,128,255,255
  90. 900 data128,192,255,255,0,0,255,255
  91. 910 data15,7,7,7,15,31,255,255
  92. 920 data240,240,240,240,248,252,254,255
  93. 930 data255,255,127,0,0,0,0,255
  94. 940 data195,131,3,7,15,31,127,255
  95. 950 data255,255,255,255,255,255,255,255
  96. 960 data191,191,191,191,191,191
  97.